10 ' DEATH (B)
20 MODE 1:BORDER 0
30 POKE &BE80,0:POKE &BE81,0:POKE &BE82,0:POKE &BE83,0:POKE &BE84,0:POKE &BE85,0:POKE &BE86,0
40 FOR i=0 TO 15:INK i,0:NEXT i
50 MEMORY &3FFF:LOAD"Mort.cmp"
60 POKE &A634,&C8:POKE &A635,0:POKE &A636,0:CALL &A60B
70 POKE &C7F1,&C9:CALL &C7D0
80 CALL &A60B
85 LOCATE 4,21:PEN 3:PRINT "Do you want to play again (Y/N)?"
90 k$=INKEY$
100 IF k$="Y" OR k$="y" THEN GOTO 200
110 IF k$="N" OR k$="n" THEN CALL 0
120 IF k$<>"Y" AND k$<>"y" AND k$<>"N" AND k$<>"n" THEN GOTO 90

200 INK 0,0:INK 1,6:INK 2,15:INK 3,24:MODE 1:BORDER 0
210 PEN 3:LOCATE 1,8:PRINT "          Back to the start!":PEN 2:PRINT:PRINT "   You are back in the initial room":PRINT "          of the pyramid..."
220 PEN 1:LOCATE 1,16:PRINT "WARNING: You lose all objects, clues, and":LOCATE 1,17:PRINT "knowledge previously acquired in":PRINT "the pyramid."
230 PEN 3:LOCATE 15,25:INPUT "  ENTER  ",en$
240 RUN"Pyramid2.bas"
